let [<Literal>] A = 1

match 1 with
| (A x{caret}) -> ()
